AFID$CS<-as.character(substr(AFID$DDBID,1,5)) m1 <- ggplot(AFID, aes(x = Date2,y=AFID))+ geom_point(aes(colour = DDBID)) + facet_grid(CS~.)+ ggtitle("AFID TREND OVER TIME2") # Temp Out # multiplot(m1, cols=1) ggplotly(m1)